home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / short1.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  15KB  |  750 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9. T54 M54={NULL,NULL};
  10. T160 M160={160,NULL,NULL,NULL,NULL};
  11. T264 M264={264,NULL,NULL,NULL,NULL};
  12. T75 M75={NULL,0,0,0};
  13. T203 M203={NULL,NULL,NULL,NULL,NULL,0};
  14. T209 M209={209,NULL,0,0,0};
  15. T119 M119={119,NULL,NULL,NULL,NULL};
  16. T208 M208={208,NULL,NULL,NULL,NULL};
  17. T201 M201={201,NULL,NULL,NULL,NULL,NULL,NULL};
  18. T157 M157={157,NULL,0,0};
  19. T268 M268={268,NULL,NULL};
  20. T73 M73={0,0,0};
  21. T307 M307={NULL};
  22. T302 M302={NULL,NULL};
  23. T47 M47={NULL,NULL};
  24. T72 M72={NULL,NULL,0,NULL,NULL,0,0,0,0};
  25. T296 M296={296,NULL};
  26. T272 M272={NULL,NULL,NULL,NULL,NULL,0};
  27. T238 M238={238,NULL,NULL,NULL,NULL};
  28. T106 M106={106,NULL,NULL,NULL,NULL};
  29. T162 M162={162,NULL,0};
  30. T258 M258={258,NULL};
  31. T256 M256={256,NULL};
  32. T266 M266={266,NULL,NULL,NULL,NULL,0};
  33. T328 M328={328,NULL,0,0};
  34. T80 M80={NULL,0,0};
  35. T125 M125={125,NULL,NULL,NULL};
  36. T284 M284={284};
  37. T30 M30={NULL,NULL,NULL};
  38. T267 M267={267,NULL,0,NULL};
  39. T158 M158={158,NULL,NULL,NULL,NULL,NULL,NULL};
  40. T175 M175={175,NULL,NULL};
  41. T61 M61={NULL,NULL,0,NULL,NULL,0,0,0,0};
  42. T343 M343={343,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  43. T79 M79={NULL,NULL};
  44. T40 M40={NULL,NULL,NULL};
  45. T183 M183={NULL,NULL};
  46. T181 M181={181,NULL,NULL};
  47. T96 M96={NULL,0,0};
  48. T234 M234={234,NULL,NULL,NULL};
  49. T66 M66={0,0,0,0,0,NULL,0,NULL,0,0,NULL,0,0,NULL,NULL,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0};
  50. T100 M100={100,NULL,NULL,NULL,NULL};
  51. T356 M356={356,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL,NULL};
  52. T152 M152={152,NULL,NULL,NULL,NULL};
  53. T263 M263={263,NULL,NULL,NULL,NULL,NULL};
  54. T90 M90={NULL,0,0,0};
  55. T179 M179={179,NULL,0,0,0};
  56. T190 M190={190,NULL,0,0};
  57. T132 M132={132,NULL,NULL,NULL};
  58. T206 M206={206,NULL,NULL};
  59. T143 M143={143,NULL,NULL};
  60. T166 M166={166,NULL,NULL};
  61. T257 M257={257,NULL};
  62. T108 M108={108,NULL,NULL,NULL,NULL};
  63. T249 M249={NULL,0,0,0};
  64. T277 M277={277,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  65. T59 M59={0,0,0};
  66. T240 M240={240,NULL,NULL,NULL,NULL,NULL};
  67. T62 M62={NULL,0,0};
  68. T110 M110={110,NULL,NULL,NULL,NULL};
  69. T319 M319={319,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL};
  70. T282 M282={282};
  71. T135 M135={135,NULL,NULL,NULL};
  72. T261 M261={261,NULL};
  73. T129 M129={129,NULL,NULL,NULL};
  74. T144 M144={144,NULL};
  75. T82 M82={NULL,NULL};
  76. T301 M301={301,NULL};
  77. T38 M38=NULL;
  78. T233 M233={233,NULL,NULL,NULL,NULL};
  79. T117 M117={117,NULL,NULL,NULL};
  80. T109 M109={109,NULL,NULL,NULL,NULL};
  81. T324 M324={NULL,0,0,0};
  82. T83 M83={NULL,0,0,0};
  83. T173 M173={173,NULL,0,0,0};
  84. T304 M304={NULL,0,0,0};
  85. T294 M294={NULL,0,0,0};
  86. T7 M7={NULL,0,0};
  87. T155 M155={155,NULL};
  88. T17 M17={0};
  89. T133 M133={133,NULL,NULL};
  90. T300 M300={300,NULL,NULL,NULL,NULL,NULL,0};
  91. T335 M335={335,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL,NULL};
  92. T44 M44={NULL,0,0,0};
  93. T199 M199={199,NULL,NULL,NULL,NULL,NULL,NULL};
  94. T276 M276={276,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  95. T214 M214={NULL,NULL,NULL};
  96. T94 M94={NULL,NULL};
  97. T289 M289={289,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  98. T78 M78=NULL;
  99. T89 M89={NULL,NULL,NULL};
  100. T242 M242={242,NULL,NULL,NULL,NULL,NULL,NULL};
  101. T10 M10={NULL,NULL,NULL,0,0};
  102. T71 M71={NULL,0};
  103. T107 M107={107,NULL,NULL,NULL,NULL};
  104. T140 M140={140,NULL,NULL,NULL,NULL};
  105. T81 M81={NULL};
  106. T320 M320={NULL,NULL,0,NULL,NULL,0,0,0,0,0};
  107. T86 M86={NULL,NULL,0,NULL,NULL,0,0,0,0};
  108. T254 M254={254,NULL};
  109. T55 M55={NULL,NULL,NULL,NULL};
  110. T359 M359={NULL,NULL,0,NULL,NULL,0,0,0,0};
  111. T355 M355={NULL,NULL,0,NULL,NULL,0,0,0,0};
  112. T69 M69={NULL,0};
  113. T341 M341={341,NULL,0,0};
  114. T338 M338={338,NULL,0,0};
  115. T124 M124={124,NULL,NULL,NULL,NULL};
  116. T165 M165={165,NULL,NULL,NULL,NULL,NULL};
  117. T95 M95={NULL,NULL};
  118. T221 M221={NULL,NULL,NULL,NULL,NULL,NULL};
  119. T193 M193={193,NULL,NULL,NULL,NULL,NULL,NULL};
  120. T336 M336={336,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL};
  121. T52 M52={NULL,NULL};
  122. T344 M344={344,NULL,NULL};
  123. T299 M299={299,NULL};
  124. T49 M49={NULL,NULL,NULL,NULL};
  125. T269 M269={269,NULL,NULL,NULL};
  126. T360 M360={360,NULL,0,0};
  127. T196 M196={196,NULL,0,0};
  128. T186 M186={NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  129. T145 M145={145,NULL,NULL};
  130. T192 M192={0};
  131. T291 M291={291,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  132. T67 M67={0,0,0};
  133. T56 M56={NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  134. T232 M232={232,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  135. T126 M126={126,NULL,NULL,NULL};
  136. T346 M346={NULL,0,0,0};
  137. T159 M159={NULL,0,0,0};
  138. T134 M134={134,NULL,NULL,NULL};
  139. T142 M142={142,NULL,NULL};
  140. T43 M43={NULL,NULL};
  141. T306 M306={NULL,NULL};
  142. T251 M251={251,NULL,NULL,NULL,NULL};
  143. T255 M255={255,NULL};
  144. T200 M200={200,NULL,NULL,NULL,NULL,NULL,NULL};
  145. T187 M187={187,NULL,NULL,NULL,NULL,NULL,NULL};
  146. T348 M348=NULL;
  147. T340 M340={340,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL,NULL};
  148. T259 M259={259,NULL};
  149. T42 M42={NULL,NULL};
  150. T88 M88={NULL};
  151. T198 M198={198,NULL,NULL,NULL,NULL,NULL,NULL};
  152. T283 M283={283};
  153. T120 M120={120,NULL,NULL,NULL,NULL};
  154. T314 M314={NULL};
  155. T171 M171={171,NULL,NULL,NULL,0,0};
  156. T303 M303={NULL,NULL};
  157. T357 M357={357,NULL,NULL};
  158. T111 M111={111,NULL,NULL,NULL,NULL};
  159. T113 M113={113,NULL,NULL,NULL,NULL};
  160. T231 M231={NULL,NULL,NULL,NULL,NULL};
  161. T245 M245={245,NULL,NULL};
  162. T39 M39={NULL,NULL,NULL};
  163. T318 M318={NULL,0,0};
  164. T26 M26={NULL,0,0};
  165. T57 M57={NULL,0,0,0};
  166. T34 M34={NULL,0,0,0};
  167. T223 M223={NULL,0,0,0};
  168. T216 M216={NULL,0,0,0};
  169. T248 M248={248,NULL,NULL,NULL,NULL};
  170. T161 M161={161,NULL,NULL};
  171. T323 M323={NULL,0,0,0};
  172. T50 M50={NULL,0,0,0};
  173. T168 M168={168,NULL,0,NULL};
  174. T315 M315={NULL,0,0,0};
  175. T226 M226={NULL,0,0,0};
  176. T333 M333={333,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  177. T163 M163={163,NULL,NULL,NULL,NULL,NULL};
  178. T262 M262={262,NULL,NULL,NULL,NULL};
  179. T332 M332={NULL};
  180. T260 M260={260,NULL};
  181. T252 M252={252,NULL};
  182. T279 M279={279};
  183. T354 M354=NULL;
  184. T351 M351=NULL;
  185. T219 M219={219,NULL,NULL};
  186. T350 M350={350,NULL,0,0};
  187. T36 M36=NULL;
  188. T281 M281={281};
  189. T122 M122={122,NULL,NULL,NULL,NULL};
  190. T325 M325={325,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL};
  191. T337 M337=NULL;
  192. T243 M243={243,NULL,NULL,NULL,NULL};
  193. T352 M352={352,NULL,0,0};
  194. T64 M64={NULL,0,0};
  195. T138 M138={138,NULL,0,0};
  196. T184 M184={NULL,0,0};
  197. T286 M286={286};
  198. T182 M182={182,NULL,NULL,NULL,NULL};
  199. T35 M35={0};
  200. T150 M150={150,NULL,NULL,NULL};
  201. T308 M308={NULL,0,0,0};
  202. T246 M246={246,NULL,NULL,NULL,NULL};
  203. T195 M195={195,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  204. T321 M321={NULL,0,0};
  205. T92 M92={NULL,0,0};
  206. T97 M97={97,NULL,NULL,NULL,NULL};
  207. T273 M273={273,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  208. T349 M349={NULL,NULL,0,NULL,NULL,0,0,0,0};
  209. T278 M278={278};
  210. T74 M74={NULL,NULL,NULL,NULL};
  211. T228 M228={228,NULL,NULL,0};
  212. T334 M334={0};
  213. T139 M139={139,NULL,NULL,NULL,NULL};
  214. T137 M137={137,NULL,NULL,NULL};
  215. T16 M16={NULL};
  216. T310 M310={NULL,0,0,NULL,NULL,0,NULL,0,0,NULL};
  217. T220 M220={220,NULL,NULL,NULL,NULL,NULL,NULL};
  218. T178 M178={178,NULL,NULL,NULL,0};
  219. T151 M151={151,NULL,NULL,NULL,NULL};
  220. T121 M121={121,NULL,NULL,NULL,NULL};
  221. T311 M311={311,NULL,0,0};
  222. T205 M205={NULL,0,0};
  223. T222 M222={NULL,NULL};
  224. T330 M330={330,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL};
  225. T207 M207={NULL,NULL,NULL,NULL,NULL};
  226. T204 M204={NULL,NULL,NULL,NULL};
  227. T98 M98={98,NULL,0,0,0};
  228. T235 M235={235,NULL,NULL,NULL};
  229. T317 M317={NULL,NULL,0,NULL,NULL,0,0,0,0};
  230. T229 M229={229,NULL,NULL,NULL,0,0};
  231. T271 M271={271,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  232. T114 M114={114,NULL,NULL,NULL,NULL};
  233. T112 M112={112,NULL,NULL,NULL,NULL};
  234. T115 M115={115,NULL,NULL,NULL};
  235. T288 M288={288,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  236. T358 M358={358,NULL,NULL,NULL};
  237. T327 M327={327,NULL,NULL,NULL};
  238. T68 M68={NULL,0,0};
  239. T118 M118={118,NULL,NULL,NULL,NULL};
  240. T123 M123={123,NULL,NULL,NULL,NULL};
  241. T136 M136={NULL,NULL,NULL};
  242. T131 M131={131,NULL,NULL,NULL};
  243. T147 M147={147,NULL,NULL,NULL};
  244. T194 M194={194,NULL,NULL,NULL,NULL,NULL,NULL};
  245. T247 M247={247,NULL};
  246. T22 M22={0,NULL,NULL,NULL,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  247. T215 M215={NULL,NULL};
  248. T218 M218={218,NULL,NULL};
  249. T130 M130={130,NULL,NULL,NULL};
  250. T156 M156={156,NULL};
  251. T176 M176={176,NULL,0,NULL};
  252. T213 M213={213,NULL,NULL};
  253. T210 M210={210,NULL,NULL,NULL,NULL};
  254. T326 M326={326,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL};
  255. T292 M292={292,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  256. T31 M31={0,NULL,0,0};
  257. T345 M345={345,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL};
  258.  
  259.  
  260. T7*se_ms(int c,char*e){
  261. T7*s=malloc(sizeof(T7));
  262. s->_count=c;
  263. s->_capacity=c+1;
  264. s->_storage=malloc(c+2);
  265. memcpy(s->_storage,e,c);
  266. return s;}
  267.  
  268.  
  269. T7*e2s(char*e){
  270. return se_ms(strlen(e),e);}
  271.  
  272.  
  273. char*s2e(T7*s){
  274. char*e=malloc(1+s->_count);
  275. memcpy(e,s->_storage,s->_count);
  276. e[s->_count]='\0';
  277. return e;}
  278. /*
  279. -- This file is  free  software, which  comes  along  with  SmallEiffel. This
  280. -- software  is  distributed  in the hope that it will be useful, but WITHOUT 
  281. -- ANY  WARRANTY;  without  even  the  implied warranty of MERCHANTABILITY or
  282. -- FITNESS  FOR A PARTICULAR PURPOSE. You can modify it as you want, provided
  283. -- this header is kept unaltered, and a notification of the changes is added.
  284. -- You  are  allowed  to  redistribute  it and sell it, alone or as a part of 
  285. -- another product.
  286. --          Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
  287. --            Dominique COLNET and Suzanne COLLIN - colnet@loria.fr 
  288. --                       http://www.loria.fr/SmallEiffel
  289. --
  290. */
  291.  
  292. /*
  293.   This file (boost.c) is automatically included when `run_control.boost' is
  294.   true (ie. only for mode -boost).
  295. */
  296.  
  297. void se_print_run_time_stack (void) {
  298.   fprintf(SE_ERR,"Eiffel program crash at run time.\n");
  299.   fprintf(SE_ERR,"No trace when using option \"-boost\"\n");
  300. }
  301.  
  302. void sigrsp(int sig) {
  303.   printf("Received signal %d (man signal).\n",sig);
  304.   se_print_run_time_stack();
  305.   exit(1);
  306. }
  307.  
  308.  
  309. T6 r6_ix_not(T6 C){
  310. T6 R=0;
  311. /*[IF*/
  312. if(C){
  313. }
  314. else{
  315. R=1;
  316. }
  317. /*FI]*/
  318. return R;
  319. }
  320.  
  321.  
  322. void r2append_in(T2 C,T0* a1){
  323. T2 _i=0;
  324. T2 _val=0;
  325. /*[IF*/
  326. if((C)==(0)){
  327. r7extend(((T7*)a1),'0');
  328. }
  329. else{
  330. /*[IF*/
  331. if((C)>(0)){
  332. _i=((((T7*)a1))->_count/*4*/)+(1);
  333. _val=C;
  334. while (!((_val)==(0))) {
  335. r7extend(((T7*)a1),r2digit((_val)%(10)));
  336. _val=(_val)/(10);
  337. }
  338. }
  339. else{
  340. r7extend(((T7*)a1),'\55');
  341. _i=((((T7*)a1))->_count/*4*/)+(1);
  342. _val=C;
  343. while (!((_val)==(0))) {
  344. r7extend(((T7*)a1),r2digit(-((_val)%(10))));
  345. _val=(_val)/(10);
  346. }
  347. }
  348. /*FI]*/
  349. _val=(((T7*)a1))->_count/*4*/;
  350. while (!((_i)>=(_val))) {
  351. r7swap(((T7*)a1),_i,_val);
  352. _val=(_val)-(1);
  353. _i=(_i)+(1);
  354. }
  355. }
  356. /*FI]*/
  357. }
  358.  
  359.  
  360. T0* r2to_string(T2 C){
  361. T0* R=NULL;
  362. {T7*n=malloc(sizeof(*n));
  363. *n=M7;
  364. r7make(n,0);
  365. R=(T0*)n;
  366. }
  367. r2append_in(C,R);
  368. return R;
  369. }
  370.  
  371.  
  372. T3 r2hexadecimal_digit(T2 C){
  373. T3 R=0;
  374. /*[IF*/
  375. if((C)<=(9)){
  376. R=r2digit(C);
  377. }
  378. else{
  379. R=((T3)((((unsigned char)'A'))+((C)-(10))));
  380. }
  381. /*FI]*/
  382. return R;
  383. }
  384.  
  385.  
  386. T2 r2min(T2 C,T2 a1){
  387. T2 R=0;
  388. /*[IF*/
  389. if((C)<(a1)){
  390. R=C;
  391. }
  392. else{
  393. R=a1;
  394. }
  395. /*FI]*/
  396. return R;
  397. }
  398.  
  399.  
  400. T3 r2digit(T2 C){
  401. T3 R=0;
  402. R=((T3)((C)+(((unsigned char)'0'))));
  403. return R;
  404. }
  405.  
  406.  
  407. T2 r2max(T2 C,T2 a1){
  408. T2 R=0;
  409. /*[IF*/
  410. if((a1)<(C)){
  411. R=C;
  412. }
  413. else{
  414. R=a1;
  415. }
  416. /*FI]*/
  417. return R;
  418. }
  419.  
  420.  
  421. T2 r2hash_code(T2 C){
  422. T2 R=0;
  423. /*[IF*/
  424. if((C)<(0)){
  425. R=-((C)+(1));
  426. }
  427. else{
  428. R=C;
  429. }
  430. /*FI]*/
  431. return R;
  432. }
  433.  
  434.  
  435. T3 r3to_upper(T3 C){
  436. T3 R=0;
  437. /*[IF*/
  438. if((((unsigned char)C))<(97)){
  439. R=C;
  440. }
  441.  else if((((unsigned char)C))>(122)){
  442. R=C;
  443. }
  444. else{
  445. R=((T3)((((unsigned char)C))-(32)));
  446. }
  447. /*FI]*/
  448. return R;
  449. }
  450.  
  451.  
  452. T6 r3is_separator(T3 C){
  453. T6 R=0;
  454. {int z1=C;
  455.  
  456. if((0==z1)||((9<=z1)&&(z1<=10))||(13==z1)||(32==z1)){
  457. R=1;
  458. }
  459. }
  460. return R;
  461. }
  462.  
  463.  
  464. T3 r3to_lower(T3 C){
  465. T3 R=0;
  466. /*[IF*/
  467. if((((unsigned char)C))<(65)){
  468. R=C;
  469. }
  470.  else if((((unsigned char)C))>(90)){
  471. R=C;
  472. }
  473. else{
  474. R=((T3)((((unsigned char)C))+(32)));
  475. }
  476. /*FI]*/
  477. return R;
  478. }
  479.  
  480.  
  481. T6 r3same_as(T3 C,T3 a1){
  482. T6 R=0;
  483. /*[IF*/
  484. if((C)==(a1)){
  485. R=1;
  486. }
  487. else{
  488. {int z1=((unsigned char)C);
  489.  
  490. if(((65<=z1)&&(z1<=90))){
  491. R=(((unsigned char)C))==((((unsigned char)a1))-(32));
  492. }
  493.  else 
  494. if(((97<=z1)&&(z1<=122))){
  495. R=(((unsigned char)C))==((((unsigned char)a1))+(32));
  496. }
  497. }
  498. }
  499. /*FI]*/
  500. return R;
  501. }
  502.  
  503.  
  504. T6 r3_px_6261(T3 C,T3 a1){
  505. T6 R=0;
  506. R=(((unsigned char)C))>=(((unsigned char)a1));
  507. return R;
  508. }
  509.  
  510.  
  511. T6 r3_px_60(T3 C,T3 a1){
  512. T6 R=0;
  513. R=(((unsigned char)C))<(((unsigned char)a1));
  514. return R;
  515. }
  516.  
  517.  
  518. T6 r3is_letter(T3 C){
  519. T6 R=0;
  520. {int z1=C;
  521.  
  522. if(((65<=z1)&&(z1<=90))||((97<=z1)&&(z1<=122))){
  523. R=1;
  524. }
  525. }
  526. return R;
  527. }
  528.  
  529.  
  530. T6 r3is_digit(T3 C){
  531. T6 R=0;
  532. {int z1=C;
  533.  
  534. if(((48<=z1)&&(z1<=57))){
  535. R=1;
  536. }
  537. }
  538. return R;
  539. }
  540.  
  541.  
  542. T2 r3value(T3 C){
  543. T2 R=0;
  544. R=(((unsigned char)C))-(48);
  545. return R;
  546. }
  547.  
  548.  
  549. T322 r322realloc(T322 C,T2 a1,T2 a2){
  550. T322 R=NULL;
  551. R=calloc(a2,sizeof(T0*));
  552. r322copy_from(R,C,(a1)-(1));
  553. return R;
  554. }
  555.  
  556.  
  557. void r322set_all_with(T322 C,T0* a1,T2 a2){
  558. T2 _i=0;
  559. _i=a2;
  560. while (!((_i)<(0))) {
  561. (C)[_i]=(a1);
  562. _i=(_i)-(1);
  563. }
  564. }
  565.  
  566.  
  567. T2 r322fast_index_of(T322 C,T0* a1,T2 a2){
  568. T2 R=0;
  569. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  570. R=(R)+(1);
  571. }
  572. return R;
  573. }
  574.  
  575.  
  576. void r322copy_from(T322 C,T322 a1,T2 a2){
  577. T2 _i=0;
  578. _i=a2;
  579. while (!((_i)<(0))) {
  580. (C)[_i]=((a1)[_i]);
  581. _i=(_i)-(1);
  582. }
  583. }
  584.  
  585.  
  586. T51 r51realloc(T51 C,T2 a1,T2 a2){
  587. T51 R=NULL;
  588. R=calloc(a2,sizeof(T0*));
  589. r51copy_from(R,C,(a1)-(1));
  590. return R;
  591. }
  592.  
  593.  
  594. void r51set_all_with(T51 C,T0* a1,T2 a2){
  595. T2 _i=0;
  596. _i=a2;
  597. while (!((_i)<(0))) {
  598. (C)[_i]=(a1);
  599. _i=(_i)-(1);
  600. }
  601. }
  602.  
  603.  
  604. T2 r51fast_index_of(T51 C,T0* a1,T2 a2){
  605. T2 R=0;
  606. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  607. R=(R)+(1);
  608. }
  609. return R;
  610. }
  611.  
  612.  
  613. void r51copy_from(T51 C,T51 a1,T2 a2){
  614. T2 _i=0;
  615. _i=a2;
  616. while (!((_i)<(0))) {
  617. (C)[_i]=((a1)[_i]);
  618. _i=(_i)-(1);
  619. }
  620. }
  621.  
  622.  
  623. T6 r9fast_memcmp(T9 C,T9 a1,T2 a2){
  624. T6 R=0;
  625. T2 _i=0;
  626. R=1;
  627. _i=(a2)-(1);
  628. while (!(((_i)<(0))||(!(R)))) {
  629. R=((C)[_i])==((a1)[_i]);
  630. _i=(_i)-(1);
  631. }
  632. return R;
  633. }
  634.  
  635.  
  636. T9 r9realloc(T9 C,T2 a1,T2 a2){
  637. T9 R=NULL;
  638. R=calloc(a2,sizeof(T3));
  639. r9copy_from(R,C,(a1)-(1));
  640. return R;
  641. }
  642.  
  643.  
  644. void r9copy_at(T9 C,T2 a1,T9 a2,T2 a3){
  645. T2 _i2=0;
  646. T2 _i1=0;
  647. _i1=a1;
  648. while (!((_i2)==(a3))) {
  649. (C)[_i1]=((a2)[_i2]);
  650. _i2=(_i2)+(1);
  651. _i1=(_i1)+(1);
  652. }
  653. }
  654.  
  655.  
  656. T2 r9fast_index_of(T9 C,T3 a1,T2 a2){
  657. T2 R=0;
  658. while (!(((R)>(a2))||((a1)==((C)[R])))) {
  659. R=(R)+(1);
  660. }
  661. return R;
  662. }
  663.  
  664.  
  665. void r9copy_from(T9 C,T9 a1,T2 a2){
  666. T2 _i=0;
  667. _i=a2;
  668. while (!((_i)<(0))) {
  669. (C)[_i]=((a1)[_i]);
  670. _i=(_i)-(1);
  671. }
  672. }
  673.  
  674.  
  675. T93 r93realloc(T93 C,T2 a1,T2 a2){
  676. T93 R=NULL;
  677. R=calloc(a2,sizeof(T0*));
  678. r93copy_from(R,C,(a1)-(1));
  679. return R;
  680. }
  681.  
  682.  
  683. void r93clear_all(T93 C,T2 a1){
  684. T2 _i=0;
  685. T0* _v=NULL;
  686. _i=a1;
  687. while (!((_i)<(0))) {
  688. (C)[_i]=(_v);
  689. _i=(_i)-(1);
  690. }
  691. }
  692.  
  693.  
  694. void r93set_all_with(T93 C,T0* a1,T2 a2){
  695. T2 _i=0;
  696. _i=a2;
  697. while (!((_i)<(0))) {
  698. (C)[_i]=(a1);
  699. _i=(_i)-(1);
  700. }
  701. }
  702.  
  703.  
  704. void r93copy_from(T93 C,T93 a1,T2 a2){
  705. T2 _i=0;
  706. _i=a2;
  707. while (!((_i)<(0))) {
  708. (C)[_i]=((a1)[_i]);
  709. _i=(_i)-(1);
  710. }
  711. }
  712.  
  713.  
  714. T316 r316realloc(T316 C,T2 a1,T2 a2){
  715. T316 R=NULL;
  716. R=calloc(a2,sizeof(T0*));
  717. r316copy_from(R,C,(a1)-(1));
  718. return R;
  719. }
  720.  
  721.  
  722. void r316set_all_with(T316 C,T0* a1,T2 a2){
  723. T2 _i=0;
  724. _i=a2;
  725. while (!((_i)<(0))) {
  726. (C)[_i]=(a1);
  727. _i=(_i)-(1);
  728. }
  729. }
  730.  
  731.  
  732. T2 r316fast_index_of(T316 C,T0* a1,T2 a2){
  733. T2 R=0;
  734. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  735. R=(R)+(1);
  736. }
  737. return R;
  738. }
  739.  
  740.  
  741. void r316copy_from(T316 C,T316 a1,T2 a2){
  742. T2 _i=0;
  743. _i=a2;
  744. while (!((_i)<(0))) {
  745. (C)[_i]=((a1)[_i]);
  746. _i=(_i)-(1);
  747. }
  748. }
  749.  
  750.